home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnttlkt2.lha / Routines / SCROLL < prev    next >
Text File  |  1994-12-13  |  294b  |  5 lines
  1. SCROLL: procedure;parse arg line,text;sp=2;getuser27;ll=result-1
  2.     do a=1 to length(text)+ll;ch=substr(text,a,1);if index('╣▓│',ch)>0 then sp=translate(ch,'246','╣▓│')
  3.     else sendstring ''line';0HP'line';'ll'H'ch;call delay(sp);maygetchar;if result~='NOCHAR' then leave;end
  4.   return
  5.